dpth = mp||"DATA/";ipth = mp||"INDEX/";dlflag=0;MODun = space(un,1,"_");pet=cya||"Please enter the "||pur||bold;peu=nor||cya||" (MAX of ";pev=" characters/line)"
dtb=cya||"Does this BBS support ";sp=" ";str1=sp||cya||"{";str2=cya||"}"||grn
str=wht||"{"||pur||"D"||wht||"} to DELETE, {"||pur||"E"||wht;str=str||"} to EDIT, {"||pur||"Q"||wht||"} to QUIT, "||pur||"Any other key CONTINUES"||wht||" > ";call out;str=""
call getkey;answer = upper(hot);str=answer;call out
if answer = "D" then call DELETESTART
if answer = "E" then call eCARD
if answer = "Q" then SIGNAL rmnu
end
else do
str=wht||"{"||pur||"Q"||wht||"} to QUIT, "||pur||"Any other key CONTINUES"||wht||" > "
call getkey;answer = upper(hot);str=answer;call out
if answer = "Q" then SIGNAL rmnu
end
end
nowwhat:
if number < 26 then do
str=cls||cya||"Would you like to move to the NEXT letter? (Y/n) > "
call getkey;answer = upper(hot);if answer = "N" then signal rmnu
str =grn"The following 4 questions require a ONE LETTER ANSWER!";call out
str =pur"Y"grn" means "pur"YES"grn", "pur"N"grn;str=str" means "pur"NO"grn", "pur"U"grn" means ";str=strpur"UNKNOWN."grn" DEFAULT is UNKNOWN.";call out
str ="HOTKEY mode is ACTIVATED so you DO NOT have to press RETURN.";call out;call lf2
str =cls||pet" NUMBER OF NODES (PHONE LINES)"nor||cya
call out
call bl
str=wht"> "
length=3
call input
NODES.1 = typed
compare = datatype(NODES.1)
if compare ~= "NUM" then do
drop compare
str =red"You MUST enter a NUMBER!"
call out
call bl
call returnc
signal NODEINPT
end
if nodes.1 > 99 then do
str =red"I think you are full of it! Try entering a realistic number!"
call out
call bl
call returnc
signal NODEINPT
end
if NODES.1 < 1 then do
str =red"You MUST enter a NUMBER greater than 0"
call out
call bl
call returnc
signal NODEINPT
end
tempnodes = NODES.1
if NODES.1 > 6 then do
str =cya"The TOTAL NUMBER of nodes will be listed but there will only be"
call out
str ="space to enter 6. Try to list the MAIN numbers for the BBS."
call out
call bl
tempnodes = 6
end
call bl
do FIELD = 1 to TEMPNODES
node.field=""
str =grn"All phone entries MUST be in the FORM "NF.myNF
call out
call bl
str =cya"ONLY NUMBERS AND BACKSPACES WILL BE ACCEPTED. Q to ABORT!"
call out
call bl
str=pur"NODE "FIELD": > "wht
call msg
do entry = 1 to lg
str=""
call getkey
TRY.ENTRY = hot
call checkdata
if breakloop = 1 then return
end
nodew.field=""
do ctr=1 to lg
node.field=node.field||try.ctr
end
call lf2;drop answer;str=cls;call out;wit=cya"What is the ";wiu=" BAUD RATE supported on this NODE?";str =wit"MINIMUM"wiu;call out;call BAUDS;MINBAUD.FIELD = baud
str=cls;call out;str =wit"MAXIMUM"wiu;call out;call BAUDS;MAXBAUD.FIELD = baud;str=cls;call out
str =cya"You have entered for NODE "field":";call out
call getkey;answer = upper(hot);str=answer;call out
if answer = "Q" then signal main
if answer = "C" then signal CLEAR
signal SYSOPMAIN
CLEAR:
str =cls||RED"WARNING!! This option will DELETE ALL cards that are in the BBS ROLODEX!";call out;call bl
str=cya"Are you sure you want to do this? Type YES if you're sure! > ";length=4
call input;answer = upper(typed);if answer = "YES" then do
str =cls||cya"Deleting ALL cards. Please standby..."; call out
address command "DELETE "dpth"#? all QUIET"
address command "DELETE "ipth"#? ALL QUIET"
address command "DELETE "mp"PHONES/#? ALL QUIET"
signal setup
end
signal SYSOPMAIN
FIRSTLETTER:
LETTER = left(BBSNAME.1,1);tletter = c2d(LETTER);if tletter > 122 then LETTER = "MISC";if tletter > 90 & tletter < 97 then LETTER = "MISC";if tletter > 57 & tletter < 65 then LETTER = "MISC";if tletter < 58 then LETTER = "MISC"
str="Sorting BBS Listings alphabetically, please stand by a moment...";call out;str="This may take a while depending on how many cards exist. Please be patient.";call out;call bl